Option Explicit
Sub A_Sample031()
    Dim myRng1 As Range
    Dim myRng2 As Range
    Dim myRng3 As Range
    Dim myRng4 As Range
    Set myRng1 = Range("A1:C5")		'Nxsd
    Set myRng2 = Rows("3:6")
    Set myRng3 = Columns("E:G")
    'ǳƨ즹
    Set myRng4 = Intersect(myRng1, myRng3)
    If myRng4 Is Nothing Then
        MsgBox "S@q"
    Else
        MsgBox myRng4.Address
    End If
    Set myRng4 = Intersect(myRng1, myRng2)
    If myRng4 Is Nothing Then
        MsgBox "S@q"
    Else
        MsgBox myRng4.Address
    End If
    Set myRng1 = Nothing		'
    Set myRng2 = Nothing
    Set myRng3 = Nothing
    Set myRng4 = Nothing
End Sub
